home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 71 / MOBICLIC 71.ISO / mac / DATA / COMMUN / temp0001 / 00225_Script_GESTION_BTONS_BANDEAU_MOBICLIC < prev    next >
Text File  |  2004-12-05  |  4KB  |  158 lines
  1. global gL_Zap,gZ_pisteTitre
  2. property p_cettePiste, p_Nodepiste,p_nom_Acteur
  3. ----------------------------------
  4. on beginsprite me
  5.   p_Nodepiste = me.spriteNum
  6.   p_cettePiste = sprite(p_Nodepiste)
  7.   p_nom_Acteur = p_cettePiste.member.name
  8.   delta =  p_Nodepiste - gL_Zap[21]
  9.   p_cettePiste.locZ = sprite(gL_Zap[21]).locZ + delta
  10.   if p_nom_Acteur = "TITRE_NOP" then
  11.     gZ_pisteTitre = p_Nodepiste
  12.     if  p_cettePiste.member.type = #text then
  13.       p_cettePiste.member.text = EMPTY
  14.     end if
  15.   end if
  16. end
  17. ----------------------------------- 
  18. on mouseEnter me
  19.   if p_nom_Acteur contains "_NOP" then exit
  20.   zeRoot = extractRoot(p_nom_Acteur)
  21.   if the pauseState = 1 then
  22.     if  zeRoot <> "BTON_OPENZAP"then exit
  23.   end if
  24.   if p_cettePiste.blend < 100 then exit
  25.   cursor 280
  26.   p_cettePiste.member = p_nom_Acteur&"_R"
  27.   updateStage
  28. end
  29. ----------------------------------- 
  30. on mouseWithin me
  31.   if p_nom_Acteur contains "_NOP" then exit
  32.   zeRoot = extractRoot(p_nom_Acteur)
  33.   if the pauseState = 1 then
  34.     if  zeRoot <> "BTON_OPENZAP"then exit
  35.   end if
  36.   if p_cettePiste.blend < 100 then exit
  37.   cursor 280
  38. end
  39. ---------------------------------
  40. on mouseLeave me
  41.   if p_nom_Acteur contains "_NOP" then exit
  42.   zeRoot = extractRoot(p_nom_Acteur)
  43.   if the pauseState = 1 then
  44.     if  zeRoot <> "BTON_OPENZAP"then exit
  45.   end if
  46.   cursor -1
  47.   if p_cettePiste.blend < 100 then exit
  48.   p_cettePiste.member = p_nom_Acteur
  49.   updateStage
  50.   coupeson(2)
  51. end
  52. ----------------------------------- 
  53. on mouseUp me
  54.   if p_nom_Acteur contains "_NOP" then exit
  55.   zeRoot = extractRoot(p_nom_Acteur)
  56.   if the pauseState = 1 then
  57.     if  zeRoot <> "BTON_OPENZAP"then exit
  58.   end if
  59.   cursor -1
  60.   if p_cettePiste.blend < 100 then exit
  61.   coupeson(2)
  62.   p_cettePiste.member = p_nom_Acteur
  63.   case(zeRoot) of
  64.     "BTON_AUTEUR":
  65.       local_lecture(me)
  66.     "BTON_AVIS":
  67.       local_lecture(me)
  68.     "BTON_BIRTHDAY":
  69.       local_birthday(me)
  70.     "BTON_CONCOURS":
  71.       local_lecture(me)
  72.     "BTON_CREER":
  73.       local_create()
  74.     "BTON_CRITIQUE":
  75.       local_lecture(me)
  76.     "BTON_DEDICACE":
  77.       local_lecture(me)
  78.     "BTON_ENREGISTRER":
  79.       local_save(me)
  80.     "BTON_ENCADRE":
  81.       local_playMIAW(me)
  82.     "BTON_ENCADRE05":
  83.       local_playMIAW(me) 
  84.     "BTON_ECOUTER":
  85.       local_listen(me)
  86.     "BTON_EFFACER":
  87.       local_delete(me)
  88.     "BTON_EXEMPLE":
  89.       local_exemple(me)
  90.     "BTON_EXTRAIT":
  91.       local_extrait(me)
  92.     "BTON_GALLERIE":
  93.       local_gallery(me)
  94.     "BTON_IMPRIMER":
  95.       local_print(me)
  96.     "BTON_JOUER":
  97.       local_jouer(me)
  98.     "BTON_JURY":
  99.       local_jury()
  100.     "BTON_LABO":
  101.       local_labo(me)
  102.     "BTON_MATERIEL":
  103.       local_matos(me)
  104.     "BTON_MODEMPLOI":
  105.       local_userguide(me)
  106.     "BTON_NEW_PLAYER":
  107.       local_newplayer(me)
  108.     "BTON_OPENZAP":
  109.       show_zapette(me)
  110.     "BTON_OUVRIR":
  111.       local_open(me)
  112.     "BTON_PAROLE":
  113.       local_lecture(me)
  114.     "BTON_QUESTION":
  115.       local_question(me)
  116.     "BTON_QUIZ":
  117.       local_quiz(me)
  118.     "BTON_RECORD":
  119.       local_record(me)
  120.     "BTON_REECOUTER":
  121.       local_relisten(me)
  122.     "BTON_REJOUER":
  123.       local_replay(me)
  124.     "BTON_RETOUR":
  125.       local_back(me)
  126.     "BTON_SCORE":
  127.       local_score(me)
  128.     "BTON_SUITE":
  129.       local_suite(me)
  130.     "BTON_SUPPRIMER":
  131.       local_kill(me)
  132.     "BTON_TOUTQUIZ":
  133.       local_touteditquiz(me)
  134.     "BTON_TOTALQUIZ":
  135.       local_totalquiz(me)
  136.     "BTON_VALIDER":
  137.       local_valid(me)
  138.     "BTON_VOIR":
  139.       local_voir(me)
  140.     "BTON_ZOOMMOINS":
  141.       local_ZoomMoins(me) 
  142.     "BTON_ZOOMPLUS":
  143.       local_ZoomPlus(me) 
  144.     otherwise:
  145.       case(zeRoot.char[1..5]="ZBTON") of
  146.         1:
  147.           local_Z(me)
  148.         0:
  149.           nothing
  150.       end case
  151.   end case
  152. end
  153. ----------------------------------- 
  154. on exitFrame me
  155.  if p_cettePiste.blend < 100 then p_cettePiste.member =  p_nom_Acteur 
  156. end
  157. --------------------
  158.